home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / system / ifp1s158.zip / PAGE_21.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-17  |  1KB  |  48 lines
  1. unit page_21;
  2.  
  3. interface
  4.  
  5. uses crt, ifpglobl, ifpcomon;
  6.  
  7. procedure page21;
  8.  
  9. implementation
  10.  
  11. procedure page21;
  12.   var
  13.     xbyte: byte;
  14.  
  15.   begin
  16.   TextColor(White);
  17.   GotoXY((twidth div 2) - 15, 1);
  18.   Writeln('Thank You for using INFOPLUS!!');
  19.   Writeln;
  20.   Writeln;
  21.   TextColor(LightCyan);
  22.   Writeln('  This is my final version of Infoplus. It''s not 100% complete, which');
  23.   Writeln('is why it''s an alpha. The help screens have not been updated, and I');
  24.   Writeln('didn''t make all the changes I wanted to.');
  25.   Writeln;
  26.   Writeln('  As of September 17th, 1993, I have no e-mail address. The Infoplus BBS');
  27.   Writeln('has also been shut down.');
  28. {
  29.   Writeln('  If you have any questions, bug reports, or suggestions, I can be');
  30.   Writeln('reached at the following places:');
  31.   Writeln;
  32.   TextColor(LightRed);
  33.   Writeln('Internet       : andyross@infopls.chi.il.us');
  34.   Writeln('UUCP           : uunet!infopls!andyross');
  35.   Writeln('CompuServe     : >INTERNET:andyross@infopls.chi.il.us');
  36.   Writeln;
  37.   Writeln('Infoplus BBS   : (708)537-0247 (14400/9600/2400/1200 v32bis/v42bis/MNP)');
  38.   Writeln('Beacon         : (708)615-0845 (2400/1200)');
  39. }
  40.   Window(1, tlength - 2, twidth, tlength - 2);
  41.   xbyte:=TextAttr;
  42.   TextColor(White);
  43.   TextBackground(Brown);
  44.   ClrScr;
  45.   Write('INFOPLUS ', qversion, ', by Andrew Rossmann, ' + qdate);
  46.   TextAttr:=xbyte;
  47.   end;
  48. end.